home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / TOOLPAS2 / FMTLBL.PAS < prev    next >
Pascal/Delphi Source File  |  1990-01-02  |  551b  |  33 lines
  1.  
  2. const
  3.    maxline = 6;
  4. var
  5.    line: array[1..maxline] of string;
  6.    i,j:  integer;
  7.    n:    integer;
  8.  
  9. begin
  10.    writeln;
  11.    writeln('Enter ',maxline,' lines of text to be printed:');
  12.    writeln;
  13.  
  14.    for i := 1 to maxline do
  15.    begin
  16.       write(i,': ');
  17.       readln(line[i]);
  18.    end;
  19.  
  20.    writeln;
  21.    write('Print how many lables: ');
  22.    readln(n);
  23.    writeln;
  24.    writeln('Printing...');
  25.  
  26.    assign(output,'prn');
  27.    rewrite(output);
  28.    for i := 1 to n do
  29.       for j := 1 to maxline do
  30.          writeln(line[j]);
  31. end.
  32.  
  33.